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module B c o un 1 1 6 (q, elk) 
output [15:0] q; 
input elk; 
r e g [ 1 5 : 0] q; 

a 1 wa y s@ (p o s e dg e elk) 
q=q+'dl ; 
endmodule 
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module top; 
reg clock, reset, start end; 



L 1 - — wire [bl 

L2-—-- w i re [^2 
L3. — wire [b3 



01 HC; <-15 

0] e; <- T 
0] n; <-63 



rsaEnc encKM, C, e, n, clock, reset, start, end) ; 
endmodule 

module rsaEncCM, C, e, n. elk, res, st, ed) ; 
input [bl:0] M: <-15 
input [b2:0] e: <- 7 . 
input [b3:0] n; <-63 
input elk, res, st; 
output [bl:0] C:<-15 
output ed; 



{ 



integer i; 

always§(posedge elk) 
if (res ==1 bl) 
C = 16 ~d0; . 
else if (st == 1 bl) 

C = r bl; . w 
for (i=0;i<e;i++) { 
C=(M*C)Xn: 

} . 
ed=l bl; 



} 

endmodule 
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